From: Nick Roberts <nickrob@snap.net.nz>
Date: Thu, 10 Sep 2009 03:03:27 +0000 (+0000)
Subject: Reported in thread for Bug#4375.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~10598
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=e36265774d6f540d0f2ed10faf724701040105be;p=emacs.git

Reported in thread for Bug#4375.
* progmodes/gud.el (gud-tooltip-print-command): Use MI command
"-data-evaluate-expression" instead of print.
* progmodes/gdb-mi.el (gdb-tooltip-print-1): Ditto.
(gdb-tooltip-print): Parse output from above MI command.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 0d3679575d6..34d7cd7eaef 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3411,7 +3411,8 @@ With arg, dereference expr if ARG is positive, otherwise do not derereference."
 (defun gud-tooltip-print-command (expr)
   "Return a suitable command to print the expression EXPR."
   (case gud-minor-mode
-	((dbx gdbmi) (concat "print " expr))
+	(gdbmi (concat "-data-evaluate-expression " expr))
+	(dbx (concat "print " expr))
 	((xdb pdb) (concat "p " expr))
 	(sdb (concat expr "/"))))